home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / EDT / Beispiele / Umlaute.edt < prev    next >
Text File  |  1996-09-26  |  542b  |  25 lines
  1. /* edt */
  2. OPTIONS RESULTS
  3.  
  4. a=GetClip("Umlaute?")
  5. IF a="AUS" THEN DO
  6.   'SetKey "ä" `Insert "ä"`'
  7.   'SetKey "Ä" `Insert "Ä"`'
  8.   'SetKey "ü" `Insert "ü"`'
  9.   'SetKey "Ü" `Insert "Ü"`'
  10.   'SetKey "ö" `Insert "ö"`'
  11.   'SetKey "Ö" `Insert "Ö"`'
  12.   'SetKey "ß" `Insert "ß"`'
  13.   SetClip("Umlaute?","AN")
  14.   END
  15. ELSE DO
  16.   'SetKey "ä" `Insert "ae"`'
  17.   'SetKey "Ä" `Insert "Ae"`'
  18.   'SetKey "ü" `Insert "ue"`'
  19.   'SetKey "Ü" `Insert "Ue"`'
  20.   'SetKey "ö" `Insert "oe"`'
  21.   'SetKey "Ö" `Insert "Oe"`'
  22.   'SetKey "ß" `Insert "ss"`'
  23.   SetClip("Umlaute?","AUS")
  24.   END
  25.